1 REM ~~dim~~ 10 MODE 100 REM # scherm # 101 CLS 102 PALETTE 103 EXTENSION (Index #3) (Token 0x8a) 11 KEY 110 FOR 120 INK 13 HIDE 130 DRAW 135 NEXT 137 FOR 14 GOSUB 140 VARNAME 145 IF 15 GOSUB 150 FOR 160 VARNAME 170 INK 180 DRAW 190 INK 2 DIM 20 VARNAME 200 PLOT 205 INK 206 PLOT 210 NEXT 215 REM 220 NEXT 230 FOR 235 FOR 240 FOR 245 FOR 25 VARNAME 250 FOR 255 PEN 256 PEN 260 PEN 265 PEN 30 EXTENSION (Index #2) (Token 0x86) 300 SPRITE 305 FLASH 306 FLASH 310 MOVE X 315 MOVE X 320 MOVE 321 VARNAME 329 REM ### game #### 330 IF 340 IF 350 IF 360 IF 361 IF 362 IF 365 IF 370 IF 40 REPEAT 400 WAIT VBL 41 CLS 410 IF 42 PEN 420 IF 43 PRINT 430 IF 44 CENTRE 440 IF 441 IF 442 IF 445 VARNAME 447 INK 45 PRINT 450 VARNAME 46 PEN 460 SPRITE 47 PRINT 48 PRINT 49 PRINT 49000 REM # palette from sprite-bank # 49010 VARNAME 49020 RETURN 499 RETURN 5 EXTENSION (Index #3) (Token 0xa4) 50 PRINT 500 WAIT VBL 50000 DATA 510 IF 520 IF 530 IF 54 PEN 540 IF 541 IF 542 IF 545 VARNAME 547 INK 55 INPUT 550 VARNAME 560 SPRITE 599 RETURN 6 CLICK 60 CURS 600 REM ~~ end ~~~ 610 IF 611 IF 620 VARNAME 621 IF 622 IF 630 IF 635 IF 640 IF 641 IF 650 PEN 660 PEN 670 LOCATE 680 CLEAR KEY 690 REPEAT 699 GOTO 7 EXTENSION (Index #3) (Token 0x88) 700 PEN 710 RETURN 750 PEN 760 RETURN 800 REM game over 8000 VARNAME 801 CLICK 8020 RETURN 810 LOGIC 815 EXTENSION (Index #3) (Token 0x82) 820 EXTENSION (Index #0) (Token 0x80) 830 PEN 840 PEN 850 PEN 860 PEN 870 APPEAR 890 REPEAT 895 IF 896 IF 899 GOTO 9000 REM ~ init ~ 9010 RESTORE 9020 FOR 9999 RETURN